home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / gui140.zip / GUI.BI < prev    next >
Text File  |  1997-06-28  |  2KB  |  35 lines
  1. '---------------------------------------------------------------------------
  2. 'GUI140.BI
  3. 'GUI Library v. 1.40
  4. 'for QuickBasic 4.5
  5. 'Copyright (c) 1995 - 1997 by Tika Carr
  6. '---------------------------------------------------------------------------
  7. '** Function & Sub Declarations
  8. DECLARE FUNCTION PopInp$ (p$, l%, x%, y%, bc%, tc%, fc%, ft%, cc%)
  9. DECLARE FUNCTION button$ (x%, y%, t$, bc%, tc%, hl%, cp%, flag%)
  10. DECLARE FUNCTION pushbtn% (byte$)
  11. DECLARE SUB clrscrn (clr%)
  12. DECLARE SUB drwbtn (ds%, dc%, dfs%, dfc%, dx1%, dy1%, dx2%, dy2%)
  13. DECLARE SUB gprint (z$, x%, y%, c%)
  14. DECLARE SUB mouse (a$)
  15. DECLARE SUB PopUpBox (x%, y%, clrbox%, clrbdr%, clrtext%, TextArray$())
  16. DECLARE SUB TitleBar (t$, bc%, tc%)
  17. DECLARE SUB ImgBuff (x1%, y1%, x2%, y2%, flag%)
  18. '---------------------------------------------------------------------------
  19. '** Metacommands
  20. '$INCLUDE: 'qb.bi'
  21. '$DYNAMIC                 ' Needed because of all the static and other vars.
  22. '---------------------------------------------------------------------------
  23. '** Variable declarations
  24. DEFINT A-Z
  25.  
  26. COMMON SHARED mb%, mi%, mt%, mx%, my%        'mouse variables
  27. COMMON SHARED black%, white%                   'used for palette
  28.  
  29. DIM SHARED Inregs AS RegType, Outregs AS RegType        'Interrupt
  30. DIM SHARED Regs AS RegTypeX                             'InterruptX
  31. black% = 0: white% = 15
  32. '---------------------------------------------------------------------------
  33. SCREEN 12     ' 640 x 480 x 16 color screen
  34.  
  35.